(save-place-to-alist): Handle hexl-mode specially.

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index e7b28e747688209ac9ec4959637f54749c618f15..65f1e18c678e139ba49213e16340f81db8b23ae9 100644 (file)
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -107,7 +107,10 @@ To save places automatically in all files, put this in your `.emacs' file:
               (setq save-place-alist (delq cell save-place-alist))))
         (if save-place
             (setq save-place-alist
-                  (cons (cons buffer-file-name (point))
+                  (cons (cons buffer-file-name
+                             (if (not (eq major-mode 'hexl-mode))
+                                 (point)
+                               (1+ (hexl-current-address))))
                         save-place-alist))))))
 
 (defun save-place-alist-to-file ()